home *** CD-ROM | disk | FTP | other *** search
/ Flash MX Savvy / FlashMX Savvy.iso / pc / MAC / Amapi3D / Amapi3DTrial_Edition / MACROS / invcurv.tcl < prev   
Encoding:
Text File  |  1999-07-01  |  409 b   |  23 lines  |  [TEXT/CWIE]
  1. #SPEC -realnameid 0
  2.  
  3. # messages table
  4. #@@%000@@FR@@Inverser une courbe@@
  5. #@@%000@@US@@Invert a curve@@
  6.  
  7. # no shape
  8. if {[llength [.amapi scene]] == 0} return
  9.  
  10. # it's not a curve
  11. newshape shape [.amapi current]
  12. if {[shape -curve] == 0} return
  13.  
  14. # make a copy of curve
  15. newshape result [move -copy -shape [shape -ref] -move {0 0 0}]
  16.  
  17. # invert curve
  18. result -invert
  19.  
  20. shape -checkout
  21. result -checkout
  22. result -checkin
  23.